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ActiveX control brings bit manipulation to Windows 
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Nothing compares with the C lan- 
guage for working with bits. C pro- 
vides a rich set of signed and un- 
signed number formats, along with many 
intrinsic bit-manipulation operators. 
However, most of the popular rapid-ap- 
plication-development Windows lan- 
guages lack C's ability to easily work with 
bits. Visual Basic is such a language. Al- 
though it's hard to find a faster language 
to develop a small to midsized application 
in Windows, Visual Basic starts to show 
its weakness when it comes time to talk to 
hardware. Hardware programming is 
usually bit-oriented. That is, it's necessary 
to turn bits on and off or shift out serial 
streams to get the hardware to operate 
correctly. The ActiveX control serves just 
these types of bit-manipulation needs 
(Figure 1). The control includes func- 
tions for changing binary strings to num- 
bers, a hex-output function, the ability to 


set and clear bits in a word, and the ever- 
needed shift-left and -right functions. As 
an example, many of the three-wire seri- 
al devices need to have a setup word shift- 
ed to them. Suppose you need to shift the 
setup word 01111101 first to an A/D con- 
verter to initiate a conversion on some 
channel. You can use the functions in the 
ActiveX control to easily effect the shift 
operation, as follows: 

Setup_word = Bits ("01111101") 
"Returns 125 
For i = to 7 

Val = ShiftRight_8(setup_word,0) 
'write val to the A/D here 
next i 

In the above example, val has the 
values 1, 0, 1, 1, 1, 1, 1, during each it- 
eration of the loop. The routine can then 
clock these bits to the A/D converter as 


required by the hardware. If the opera- 
tion requires MSB first, you can use the 
ShiftLeft function. The SetBit and Clear- 
Bit functions are useful when using a port 
as clock and data lines, because you can 
set individual bits as needed instead of 
doing entire port writes. Any modern 
programming language that can use Ac- 
tiveX controls, such as Agilent VEE, Vi- 
sual Basic, Delphi, and others, can use the 
functions given here. You can download 
the ActiveX control from EDMs Web site, 
www.ednmag.com. Click on "Search 
Databases" and then enter the Software 
Center to download the file for Design 
Idea #2534. The routine includes all the 
functions listed in Figure 1, plus a few 
more, with application examples. (DI 
#2534) 
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Figure 1 


Function GetBit (By Val x As Long, ByVal n As 
Returns the value of bit n in input value x. 
Is sat or not. x • 1 to 16 bit, n ■ ■ LSB. 

II. 
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Function BtU(ByVal Inval As String) As Long 
Given a representation of a binary string, returns the 
value, inval may be any length from 1 to 16 bits 
Example: Bits("101") returns 6. 


Function Bits8trtByVal inval As Long, ByVal sizeof As I 
Given a number, returns with a representation of a binary string, 
sizeof Is the width of the return field (1 to 16 bits). 
Example: BitsStr(82,8) returns "01010010' 


Function HexStitByVal Inval As Long, ByVal sizeof As 
Given a number, returns with a representation of a hex 
sizeof Is tha width of the return field (1 to 16 bits). 


Function ClearBlt(ByVal x As Long, ByVal n As Integer) As 
Clears bit position n in input x. Returns new x value, 
x may be 1 to 16 bits, n - ■ LSB 
10. 


1 Integer) As Long 
may be any 


Function SetBit(ByVal x As Long, ByVal n A 
Sets bit n in input value x. Returns new x. > 
width 1 to 16 bits, n - » LSB. 

: SetBlt(0,4) returns 16 


Function ShiftRlght_8(ByRef x As 
Shifts tha 6 bit value x right by 1 
Returns bit shifted out 


is m. 


y As integer) As Integer 

in is y. 

new value for x (was 129) 


Function ShlftRlght 16(ByRef x As Long, ByVal y As Integer) As Integer 
Shifts tha 16 bit value x right by 1 place. Bit shifted In is y. 


ShlftRlght_16(1.1) Returns 1 and the r 


Function ShfRLeft_8(ByRef x As Integer, ByVal y Aa imager) Aa Integer 
Shifts the » bit value x left by 1 place. Bit shitted In is y. 
Returns bit shifted out 

Example: ShHtLeft_8(1,0) returns and the new value for x (was 1) 

is 2. 


Function ShiftLeft 16(ByRef x As Long, ByVal y As Integer) As 
Shifts the 16 bit value x left by 1 place. Bit shifted In Is y. 
Returns bit shifted out. 

Example: ShiftLeftJ 6(32766,1 ) returns 1 and the new value for x 
(waa 32768) Is 1 


Function RotataRlght_8(ByVal x As Integer) As 
Routes tha 6 bit value x right by 1 place. 
Example: RoUteRlght_8(1) returns 126. 


Function RotateRlght_16(ByVal x As Long) As Long 
Rotates tha 16 bit value x right by 1 place. 
Example: RoUteRlght_16(1) returns 32768. 


Function RotatsLeft_8(ByVal x As Integer) As Integer 
Routes tha 6 bit value x left by 1 place. Returns new value. 
Example: RoUULaft_8(64) returns 128 

Function RoUteLeft_16(ByVal x As Long) As Long 
Routes tha 16 bit value x left by 1 place. Returns new value. 


An ActiveX control offers many handy functions for bit manipulation. 
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